  Public Shared Function getAllTableNames() As String()
        Dim  com As New OleDbCommand
        Dim  con As OleDbConnection

        Dim i As Integer
        Dim str() As String
        'Give your database path
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb"
        con = New OleDb.OleDbConnection(ConnectionString)
        con.Open()
        com.Connection = con
        Dim dtable As DataTable
        Try
            
            dtable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            'Table_Catalog,table_Schema,table_name,table_type

            For i = 0 To dtable.Rows.Count - 1
                ReDim Preserve str(i)
                str(i) = dtable.Rows(i).Item(2).ToString
            Next
            Return str
        Catch ex As Exception
        End Try
    End Function

    ''' <summary>
    ''' it gives all column names
    ''' </summary>
    ''' <param name="tblname">give table name</param>
    ''' <returns>return string array containing Column names </returns>
    ''' <remarks></remarks>
    Public Shared Function getAllColumnNames(ByVal tblname As String) As String()
        Dim  com As New OleDbCommand
        Dim  con As OleDbConnection
        Dim str1() As String
        Dim dtable1 As DataTable
    
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb"
        con = New OleDb.OleDbConnection(ConnectionString)
        con.Open()
        com.Connection = con

        dtable1 = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, tblname, Nothing})

        For i = 0 To dtable1.Rows.Count - 1
            ReDim Preserve str1(i)
            str1(i) = dtable1.Rows(i).Item(3).ToString
        Next i
        'HELP
        'Item collection 0- "TABLE_CATALOG"
        'Item collection 1-"TABLE_SCHEMA"
        'Item collection 2-"TABLE_NAME"
        'Item collection 3-"COLUMN_NAME"
        Return str1
    End Function